home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 145 / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan).7z / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan) (Track 1).bin / music / burn.bas next >
BASIC Source File  |  2000-04-06  |  46KB  |  1,159 lines
  1.  1000 /*
  2.  1010 /*
  3.  1020 /*    ＢＵＲＮ
  4.  1030 /*
  5.  1040 /*
  6.  1050 /*
  7.  1060 /*
  8.  1070 /*    Arranged and programed by ＯＭＩＹＡ
  9.  1080 /*
  10.  1090 /*    SOUND SOURCE  INTERNAL with PCM8.X
  11.  1100 /*    MASTER TUNE o4A = 440.0 Hz
  12.  1110 /*
  13.  1120 key 4,"list 10000-@M"
  14.  1130 key 8,"sa.@@H:\BURN@M"
  15.  1140 key 18,"sa.@@d:\music\BURN@M"
  16.  1150 key 7,"m_mute(2,3)@M"
  17.  1160 key 2,"m_debug(0)@M"
  18.  1170 key 3,"m_debug(1)@M"
  19.  1180 key 9,"!ZAM -I -D @M"
  20.  1190 key 11,"!TF @M"
  21.  1200 key 12,"sa.@@H:\TEMP$$1@M!xb H:\TEMP$$1@M"
  22.  2000 exec_zms(".comment ＢＵＲＮ／DEEP PURPLE  Program by OMIYA")
  23.  2010 m_adpcm_block("BURN")
  24.  2500 m_init()
  25.  3000 /*
  26.  3010 dim char v(4,10)
  27.  3099 note( "Vocal")
  28.  3100 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   VOCAL
  29.  3110 v={      60, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  30.  3120 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  31.  3130 +        31,  0,  0,  4,  0, 27,  0,  2,  7,  0,  0,
  32.  3140 +        31,  0,  1,  6,  0,  3,  0,  1,  7,  0,  0,
  33.  3150 +        31,  0,  0,  3,  0, 20,  0,  2,  3,  0,  0,
  34.  3160 +        31,  1,  1,  6,  1,  4,  0,  2,  3,  0,  0}
  35.  3170 m_vset(  1,v)
  36.  3180 /*
  37.  3199 note( "Bass" )
  38.  3200 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   BASS
  39.  3210 v={      51, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  40.  3220 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  41.  3230 +        31, 10,  3,  9,  4, 28,  0,  1,  4,  0,  0,
  42.  3240 +        31,  2,  2,  9,  1, 38,  0,  1,  0,  0,  0,
  43.  3250 +        31, 12, 12, 12, 13, 32,  1,  3,  4,  0,  0,
  44.  3260 +        31,  1,  1,  7,  2,  0,  0,  1,  0,  0,  0}
  45.  3270 m_vset(  2,v)
  46.  3280 /*
  47.  3299 note( "Distortion Guitar (Ref.)" )
  48.  3300 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   DISTORTION GUITAR
  49.  3310 v={      59, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  50.  3320 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  51.  3330 +        31,  4,  7,  7,  6, 30,  0,  3,  0,  0,  0,
  52.  3340 +        31,  1,  1,  7,  1, 29,  0,  2,  0,  0,  0,
  53.  3350 +        31, 12, 12,  8, 12, 40,  0,  1,  5,  0,  0,
  54.  3360 +        31,  3,  3,  4,  4,  2,  0,  1,  0,  0,  0}
  55.  3370 m_vset(  3,v)
  56.  3380 /*
  57.  3599 note( "Distortion Organ" )
  58.  3600 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   DISTORTION ORGAN
  59.  3610 v={      61, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  60.  3620 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  61.  3630 +        31,  0,  0,  4,  1, 30,  0,  4,  0,  0,  0,
  62.  3640 +        31,  0,  1,  7,  1,  3,  0,  2,  0,  0,  0,
  63.  3650 +        31,  0,  1,  4,  1,  6,  0,  1,  0,  0,  0,
  64.  3660 +        31,  0,  1,  7,  1, 12,  0,  3,  0,  0,  0}
  65.  3670 m_vset(  4,v)
  66.  3680 /*
  67.  3699 note( "Distortion Guitar (LEAD)" )
  68.  3700 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   GUITAR A
  69.  3710 v={       2, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  70.  3720 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  71.  3730 +        31,  2,  2,  9,  2, 27,  0,  1,  7,  0,  0,
  72.  3740 +        31,  1,  1,  9,  1, 28,  0,  3,  0,  0,  0,
  73.  3750 +        31,  4,  1,  9,  1, 26,  0,  2,  0,  0,  0,
  74.  3760 +        31,  3,  3, 12,  4,  0,  0,  1,  0,  0,  0}
  75.  3770 m_vset(  5,v)
  76.  3780 /*
  77.  3799 note( "Distortion Guitar (LEAD)" )
  78.  3800 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   GUITAR B
  79.  3810 v={       2, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  80.  3820 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  81.  3830 +        31,  2,  2,  9,  2, 27,  0,  1,  7,  0,  0,
  82.  3840 +        31,  1,  1,  9,  1, 28,  0,  3,  0,  0,  0,
  83.  3850 +        31,  4,  1,  9,  1, 26,  0,  1,  0,  0,  0,
  84.  3860 +        31,  3,  3, 12,  4,  0,  0,  1,  0,  0,  0}
  85.  3870 m_vset(  6,v)
  86.  3880 /*
  87.  3899 note( "Distortion Guitar (LEAD)" )
  88.  3900 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   LEAD GUITAR 1
  89.  3910 v={      58, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  90.  3920 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  91.  3930 +        31,  2,  2,  9,  2, 35,  0,  1,  7,  0,  0,
  92.  3940 +        31,  1,  1,  9,  1, 27,  0,  3,  0,  0,  0,
  93.  3950 +        31,  4,  1,  9,  1, 26,  0,  2,  0,  0,  0,
  94.  3960 +        31,  3,  3, 12,  4,  3,  0,  1,  0,  0,  0}
  95.  3970 m_vset(  7,v)
  96.  3980 /*
  97.  3999 note( "Distortion Guitar (LEAD)" )
  98.  4000 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   LEAD GUITAR 2
  99.  4010 v={       2, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  100.  4020 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  101.  4030 +        31,  2,  2,  9,  2, 32,  0,  1,  7,  0,  0,
  102.  4040 +        31,  4,  3,  9,  4, 30,  0,  3,  0,  0,  0,
  103.  4050 +        31,  4,  3,  9,  4, 25,  0,  2,  0,  0,  0,
  104.  4060 +        31,  9,  9, 11,  8,  1,  0,  1,  0,  0,  0}
  105.  4070 m_vset(  8,v)
  106.  4080 /*
  107.  4099 note( "Organ" )
  108.  4100 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   DISTORTION ORGAN
  109.  4110 v={      61, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  110.  4120 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  111.  4130 +        31,  0,  0,  4,  0, 33,  0,  1,  0,  0,  0,
  112.  4140 +        31,  0,  1,  7,  1,  0,  0,  1,  0,  0,  0,
  113.  4150 +        31,  0,  1,  7,  1,  0,  0,  2,  0,  0,  0,
  114.  4160 +        31,  0,  1,  7,  1,  4,  0,  0,  0,  0,  0}
  115.  4170 m_vset(  9,v)
  116.  4180 /*
  117.  4199 note( "Distortion Organ" )
  118.  4200 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   DISTORTION ORGAN
  119.  4210 v={      52, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  120.  4220 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  121.  4230 +        31,  0,  0,  4,  1, 32,  0,  2,  3,  0,  0,
  122.  4240 +        31,  0,  1,  7,  1,  1,  0,  1,  3,  0,  0,
  123.  4250 +        31,  0,  1,  4,  1, 25,  0,  0,  7,  0,  0,
  124.  4260 +        31,  0,  1,  7,  1,  0,  0,  1,  3,  0,  0}
  125.  4270 m_vset( 10,v)
  126.  4280 /*
  127.  4299 note( "Organ (LEAD 1)" )
  128.  4300 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   DISTORTION ORGAN
  129.  4310 v={      53, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  130.  4320 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  131.  4330 +        31,  0, 31, 15,  1, 28,  0,  4,  0,  0,  0,
  132.  4340 +        31,  0, 31, 14,  1,  9,  0,  4,  0,  0,  0,
  133.  4350 +        31,  0, 31, 14,  1,  6,  0,  2,  0,  0,  0,
  134.  4360 +        31,  0, 31, 14,  1,  7,  0,  8,  0,  0,  0}
  135.  4370 m_vset( 11,v)
  136.  4380 /*
  137.  4399 note( "Organ (LEAD 2)" )
  138.  4400 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   ORGAN LEAD 2
  139.  4410 v={      52, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  140.  4420 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  141.  4430 +        31,  0,  0,  4,  1, 28,  0,  1,  7,  0,  0,
  142.  4440 +        31,  0,  1,  7,  1,  0,  0,  0,  7,  0,  0,
  143.  4450 +        31,  0,  1,  4,  1, 32,  0,  2,  3,  0,  0,
  144.  4460 +        31,  0,  1,  7,  1,  1,  0,  2,  3,  0,  0}
  145.  4470 m_vset( 12,v)
  146.  4480 /*
  147.  4499 note( "Synthe" )
  148.  4500 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   SYNTHE
  149.  4510 v={      36, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  150.  4520 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  151.  4530 +        21,  0,  0,  4,  1, 25,  0,  8,  3,  0,  0,
  152.  4540 +        21,  0,  1,  7,  1,  2,  0,  8,  3,  0,  0,
  153.  4550 +        21,  0,  1,  4,  1, 24,  0,  8,  7,  0,  0,
  154.  4560 +        21,  0,  1,  7,  1,  2,  0,  8,  7,  0,  0}
  155.  4570 m_vset( 13,v)
  156.  4580 /*
  157.  4599 note( "Organ (LEAD X)" )
  158.  4600 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   ORGAN LEAD X
  159.  4610 v={      61, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  160.  4620 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  161.  4630 +        31,  0,  0,  4,  1, 36,  0,  2,  0,  0,  0,
  162.  4640 +        31,  0,  1,  7,  1,  0,  0,  1,  7,  0,  0,
  163.  4650 +        31,  0,  1,  7,  1, 12,  0,  6,  3,  0,  0,
  164.  4660 +        31,  0,  1,  7,  1,  3,  0,  0,  3,  0,  0}
  165.  4670 m_vset( 14,v)
  166.  4680 /*
  167.  4699 note( "Vocal A" )
  168.  4700 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   VOCAL A
  169.  4710 v={      61, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  170.  4720 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  171.  4730 +        31,  0,  0,  4,  1, 34,  0,  8,  0,  0,  0,
  172.  4740 +        31,  0,  1,  7,  1,  8,  0,  8,  0,  0,  0,
  173.  4750 +        31,  0,  1,  7,  1,  3,  0,  4,  0,  0,  0,
  174.  4760 +        31,  0,  1,  7,  1,  5,  0,  3,  0,  0,  0}
  175.  4770 m_vset( 15,v)
  176.  4780 /*
  177.  4799 note( "Vocal B" )
  178.  4800 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   VOCAL B
  179.  4810 v={      61, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  180.  4820 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  181.  4830 +        31,  0,  0,  4,  1, 29,  0,  2,  0,  0,  0,
  182.  4840 +        31,  0,  1,  7,  1,  1,  0,  1,  0,  0,  0,
  183.  4850 +        31,  0,  1,  7,  1,  1,  0,  2,  0,  0,  0,
  184.  4860 +        31,  0,  1,  7,  1,  2,  0,  2,  0,  0,  0}
  185.  4870 m_vset( 16,v)
  186.  4880 /*
  187.  4899 note( "GUITAR SOLO LAYER (1st Srting)" )
  188.  4900 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   GUITAR SOLO LAYER
  189.  4910 v={      58, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  190.  4920 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  191.  4930 +        31,  0,  0,  4,  1, 30,  0,  4,  0,  0,  0,
  192.  4940 +        31,  0,  1,  7,  1, 35,  0,  5,  0,  0,  0,
  193.  4950 +        31,  2,  2,  7,  4, 31,  0,  3,  0,  0,  0,
  194.  4960 +        31,  0,  1,  7,  1,  3,  0,  2,  0,  0,  0}
  195.  4970 m_vset( 17,v)
  196.  4980 /*
  197.  4999 note( "LEAD ORGAN CRASH" )
  198.  5000 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   ORGAN CRASH
  199.  5010 v={      61, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  200.  5020 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  201.  5030 +        31,  0,  0,  4,  0, 37,  0,  4,  0,  0,  0,
  202.  5040 +        31,  0,  0,  7,  0,  7,  0,  1,  0,  0,  0,
  203.  5050 +        31,  1,  0,  7,  0, 10,  0,  3,  0,  1,  0,
  204.  5060 +        31,  0,  1,  7,  1,  6,  0,  2,  0,  1,  0}
  205.  5070 m_vset( 18,v)
  206.  5080 /*
  207.  5099 note( "Distortion Guitar (Ref.) LAYER" )
  208.  5100 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   DISTORTION GUITAR
  209.  5110 v={      42, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  210.  5120 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  211.  5130 +        31,  2,  2,  9,  2, 22,  0,  3,  6,  0,  0,
  212.  5140 +        31,  1,  1,  9,  1, 30,  0,  9,  0,  0,  0,
  213.  5150 +        31,  4,  1, 12,  1, 39,  0,  0,  2,  0,  0,
  214.  5160 +        31,  3,  3,  7,  4,  4,  0,  2,  0,  0,  0}
  215.  5170 m_vset( 19,v)
  216.  5180 /*
  217.  5199 note( "Dist. Guitar Picking Harmonics")
  218.  5200 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   DISTORTION GUITAR PICK HARM
  219.  5210 v={      61, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  220.  5220 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  221.  5230 +        31,  0,  0,  4,  0, 27,  0,  8,  7,  0,  0,
  222.  5240 +        31,  0,  1,  6,  0,  6,  0,  8,  7,  0,  0,
  223.  5250 +        31,  0,  0,  3,  0, 10,  0,  4,  3,  0,  0,
  224.  5260 +        31,  1,  1,  6,  1,  9,  0,  3,  3,  0,  0}
  225.  5270 m_vset( 20,v)
  226.  5280 /*
  227.  5299 note( "Dist. Guitar Picking Harmonics")
  228.  5300 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   DISTORTION GUITAR PICK HARM
  229.  5310 v={      61, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  230.  5320 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  231.  5330 +        31,  0,  0,  4,  0, 27,  0,  8,  0,  0,  0,
  232.  5340 +        31,  0,  1,  6,  0,  9,  0,  4,  7,  0,  0,
  233.  5350 +        31,  0,  0,  3,  0,  8,  0,  4,  3,  0,  0,
  234.  5360 +        31,  1,  1,  6,  1,  8,  0,  3,  0,  0,  0}
  235.  5370 m_vset( 21,v)
  236.  5380 /*
  237.  5399 note( "GUITAR SOLO LAYER (2nd String)" )
  238.  5400 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   GUITAR SOLO LAYER
  239.  5410 v={      58, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  240.  5420 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  241.  5430 +        31,  0,  0,  4,  1, 28,  0,  4,  0,  0,  0,
  242.  5440 +        31,  0,  1,  7,  1, 38,  0,  5,  0,  0,  0,
  243.  5450 +        31,  2,  2,  7,  4, 28,  0,  3,  0,  0,  0,
  244.  5460 +        31,  0,  1,  7,  1,  3,  0,  2,  0,  0,  0}
  245.  5470 m_vset( 22,v)
  246.  5480 /*
  247.  5499 note( "GUITAR SOLO LAYER (3rd and lower Strings)" )
  248.  5500 /*       AF  OM  WF  SY  SP PMD AMD PMS AMS PAN   GUITAR SOLO LAYER
  249.  5510 v={      58, 15,  0,  0,  0,  0,  0,  0,  0,  3,  0,
  250.  5520 /*       AR D1R D2R  RR D1L  TL  KS Mul Dt1 Dt2 AMS
  251.  5530 +        31,  0,  0,  4,  1, 30,  0,  4,  0,  0,  0,
  252.  5540 +        31,  0,  1,  7,  1, 35,  0,  5,  0,  0,  0,
  253.  5550 +        31,  2,  2,  7,  4, 25,  0,  3,  1,  0,  0,
  254.  5560 +        31,  0,  1,  7,  1,  3,  0,  2,  0,  0,  0}
  255.  5570 m_vset( 23,v)
  256.  5580 /*
  257. 10000 dim char CH(32)
  258. 10010 CH={11 , 1, 2, 3, 4, 5, 6, 7, 8, 9,26,27,28}
  259. 10020 /*  ^last track number
  260. 10030 dim int TR(32) : int i,z
  261. 10035 TR={11,  8000, 8000, 8000, 8000, 8000, 8000, 8000, 8000, 320, 900, 360}
  262. 10040 for z=1 to CH(0) : TR(z)=10000 : next
  263. 10045 for z=9 to 11 : TR(z)=3000 : next
  264. 10060 for z=1 to CH(0) : m_alloc(z,TR(z))  : next
  265. 10070 for z=1 to CH(0) : m_assign(CH(z),z) : next
  266. 10080 m_tempo( 212 )
  267. 10090 dim char s(99) : dim str p(99)[256],o(99)[256],q(99)[256],MC(99)
  268. 10100 str a[256],b[256],c[256],d[256],e[256],f[256],g[256],h[256],j[256],k[256],n[256]
  269. 10110 str r[256],t[256],u[256],w[256],x[256]
  270. 10120 /* str maki,azusa,mikiyo,erika,rieko,CoCo,CoCo2,CoCo3
  271. 12000 write_assign( 9,"K0  [k.sign -b]")
  272. 20000 /*        ＢＡＳＳ
  273. 20010 p(0)="t212 @2  p3  v16  q8  L8 o2 @K0 @s12 @h49 @m18 r*4
  274. 20015 p(99)="[@]"
  275. 20016 p(98)="\7 "
  276. 20100 /* INTRO
  277. 20110 p(1)="r1^1^1^2rggg
  278. 20111 p(1)=">(e8g)&g&(g4.>g)r4.< r1^1^2rggg
  279. 20120 p(2)="g1^1^1^2rggg
  280. 20130 p(3)="o1|:4g4:| |:4g4:| |:4g4:| g4.g4ff+4
  281. 20131 p(3)="o1|:8g:| |:8g:| |:8g:| g4.g4ff+4
  282. 20140 p(4)="o1|:4g4:| |:4g4:| |:4g4:| g4.g4ff+4
  283. 20141 p(4)="o1|:8g:| |:8g:| |:8g:| g4.g4ff+4
  284. 20142 p(4)="o1|:8g:| |:8g:| |:8g:| bagf4ff+4
  285. 20150 /* A
  286. 20160 p(5)="o1 |:4 g4.<g4fd4>:|
  287. 20161 p(5)="o1 |:4 g4^16&(g16<g)g4fd4>:|
  288. 20170 p(6)="o1 |: g4.<g4fd4>:| <c4.c4.c4& c1
  289. 20171 p(6)="o1 |: g4^16&(g16<g)g4fd4>:| <c4.c4.c4& c1
  290. 20172 p(6)="o1 |: g4^16&(g16<g)g4fd4>:| <c4.c4.c4& c2&(c<c)(c4.>>a)
  291. 20180 p(7)="o1 |: g4.<g4fd4>:| <|: g4.<g4fd4>:|
  292. 20181 p(7)="o1 |: g4^16&(g16<g)g4fd4>:| <|: g4.<g4fd4>:|
  293. 20190 p(8)="o1 |:g4<g2fd>:| b4.f4.<c4& c1& cr2..
  294. 20191 p(8)="o1 |: g8.&(g16<g)g2fd>:| b4.f4.<c4& c1& cr2..
  295. 20200 /* B
  296. 20210 p(9)="o1 g4.g4.<d4 g4.a4.b4 e-2.g4 <#f4&fe-8^2>
  297. 20211 p(9)="o1 gggggg<dd gggaaabb e-e-e-e-e-e-gg <#f4&fe-4e-e-e->
  298. 20212 /*p(9)="o1 gggggg<dd gggaaabb e-e-e-e-e-e-gg <;f4&fe-4e-e-e->
  299. 20220 p(10)="o1 <c4.c4.g4 c4.c&c2
  300. 20221 p(10)="o1 <ccccccgg cccc&c2
  301. 20230 /* C
  302. 20240 p(11)="o2 gr2.. r2rggg g1& g2r>ff+4
  303. 20250 p(12)="o1 |:3 g4g4g4g4:| g4.g8^2
  304. 20251 p(12)="o1 |:3 gggggggg:| g4.g8^2
  305. 20260 /* D
  306. 20270 p(13)="o2 d4rdd4rd d4rdd4rc >b4rbb4rb b4rbb2
  307. 20271 p(13)="o2 |:7 d:|d& |:6d:|cc >|:7 b:|b& |:8 b:|
  308. 20280 p(14)="o2 c4.d2f& f4.e2>a&  a4raa4ra a4raa4ra
  309. 20281 p(14)="o2 c4.d2f& f4.e2>a&  |:7 a:|a& |:8 a:|
  310. 20290 p(15)="o1 |: b4rbb4rb:| <|: d4rdd4rd:|
  311. 20291 p(15)="o1 |:7b:|b& |:8 b:| < |:7 d:|d& |:8 d:|
  312. 20300 p(16)="d4.d2d& d4.d2d& d4.d2d& d4.d&d2
  313. 20310 /* E
  314. 20320 p(17)="o2 gr2.. r2rggg g1& g2rggg
  315. 20330 p(18)="o1 |:3 g4g4g4g4:| g4g4g2
  316. 20331 p(18)="o1 |:3 gggggggg:| ggggg2
  317. 20340 /* F
  318. 20350 p(19)="o1 |: g4<g4.fd>g& g4<g2fd:|
  319. 20360 p(20)="o1  g4<g4.fd>g& g4<g2fd  c4.c2c c4c4c2
  320. 20361 p(20)="o1  g4<g4.fd>g& g4<g2fd  c4.c2c c4.g4c4.
  321. 20370 p(21)="o1 |: g4<g4.fd>g& g4<g2fd:|
  322. 20380 p(22)="o1 <c4.cc4.c c4.cc>b4.  g4.gg4.g <g4g4.fd4
  323. 20390 p(23)="o2 e-4.e-e-4.e- e-4.e-d4c4 >g4.gg4.g g4.gg4<d4
  324. 20400 p(24)="o2 e-4.e-e-4.e- e-4.e-e-4.e- d4dddddd d4dddddd
  325. 20410 p(25)="o2 d4dddddd ddddd2
  326. 20420 /* G
  327. 20430 p(26)="o2 g2.f4 e-1 f2.e-4 d1
  328. 20431 p(26)="o2 ggggggff |:8 e-:| ffffffe-e- |:8 d:|
  329. 20440 p(27)="e-2.d4 c1 d4d4d4d4 d4d4d4d4
  330. 20441 p(27)="|:6 e-:|dd |:8 c:| |:16 d:|
  331. 20450 p(28)="e-2.d4 c1 |:8 d:| |:8 d:|
  332. 20451 p(28)="|:6 e-:|dd |:8 c:| |:16 d:|
  333. 20460 p(29)="|:8 d:| |:8 d:|
  334. 20461 p(29)="|:8 d:| |:8 d:|
  335. 20470 p(30)="|:>{gggg}4g4<{cccc}4c4:| |:8 d:| |:8 d:|
  336. 20480 /* J
  337. 20490 p(31)="o1 |: g4<g4.fd>g& g4<g2fd> :|
  338. 20500 p(32)=" g4<g4.fd>g& g4<g2fd>  g4<g4.fd>g& g4b4<cdcd>
  339. 20510 p(33)="< g4<g4.fd>g& g4<ggggfd >g4<g4.fd>g& g4.<g&g2> >
  340. 20520 p(34)="|: g4<g4.fd>g& g4<g2fd> :|
  341. 20530 p(35)="< d4.dd4.d d4.dd4.d d4.dd4.d& d4.d4d>ba
  342. 20540 p(36)="< d4.dd4.d d4.dd4.d d4.dd4.d& d4.dd2
  343. 20550 /* K
  344. 20560 p(37)="o2 g2.f4 e-1 f2.e-4 d1
  345. 20561 p(37)="o2 ggggggff |:8 e-:| ffffffe-e- |:8 d:|
  346. 20570 p(38)=" e-2.d4 c1 d4.dd4.d d4.dd2
  347. 20571 p(38)=" |:6 e-:|dd |:8 c:| |:16 d:|
  348. 20580 p(39)=" g2.f4 e-1 f2.e-4 d1
  349. 20581 p(39)=" |:6 g:|ff |:8 e-:| |:6f:|ee- |:8 d:|
  350. 20582 /*p(39)=" |:6 g:|ff |:e-e->b-<:|ce- |:6f:|ee-|:dd>a:|b-<d
  351. 20590 p(40)=" e-2.d4 c1 |:8 d:| |:8 d:|
  352. 20591 p(40)=" |:6 e-:|dd |:8 c:| |:16 d:|
  353. 20592 /*p(40)=" |:6 e-:|dd |:cc>g:|ab< |:8 d:| dd<d>d<c>d<cd>
  354. 20600 p(41)="|:8 d:| |:8 d:|
  355. 20601 p(41)="|:8 d:| |:8 d:|
  356. 20602 /*p(41)="|:8 d:| <d>dddaddd
  357. 20610 p(42)="|: >{ggg}4g4<{ccc}4c4 :| |:8 d:| |:8 d:|
  358. 20620 /* L
  359. 20630 p(43)="o2 gr2..^1^1^2r>ggg
  360. 20640 p(44)="g4g4g4g4 g4g4g4<fd> g4g4g4g4 g4gg&g2
  361. 20641 p(44)="gggggggg gggggg<fd> gggggggg g4gg&g2
  362. 20650 /* Coda
  363. 20660 p(45)="o2 gr2..^1^1^2r>ggg
  364. 20670 p(46)="g4g4g4g4 g4g4g4g4 g4g4g4g4 g4g4g2
  365. 20671 p(46)="gggggggg gggggggg gggggggg g4g4g2
  366. 20680 p(47)="o1 g4.f&f2 <c4.>b&b2 <e-4.d&d2 e-4.d&d2
  367. 20690 p(48)="e-4.d&d2 t-16e-4.d&t-16d2 > t-40g1
  368. 21000 s={99,0, 1,2, 3,4, 5,6, 3, 7,8, 9,10,
  369. 21010       11,12, 13,14,15,16,  17,18,
  370. 21020       19,20,21,22,23,24,25,  26,27,26,28,29,30,
  371. 21030       1,2, 3,4, 13,14,15,16,
  372. 21040       31,32,33,34,35,36, 37,38,39,40,41,42,
  373. 21050       43,44,   5,6, 3, 7,8, 9, 10,  45,99,46, 47,48,    255 }
  374. 21400 ornext( 0, 48 )
  375. 21500 write(1)
  376. 25000 /*        Vocal
  377. 25001 MC(0)="@z"
  378. 25010 p(0)="@3  p3  v9  q8  L8 o2 @K0    @S5 @H68 @M-16 =0 r32
  379. 25110 /* INTRO
  380. 25120 p(1)="@3 v12 p3 o3 @m0 @K-2 ~3
  381. 25121 MC(5)=",*12"  : MC(7)="" : MC(8)=""
  382. 25130 p(2)="gb&ag?5<c4.>g ba&g?5<c4.>b4 gb&ag?5<c4.>g b&ag?5f&f2 q8
  383. 25140 /* A
  384. 25141 MC(1)="@K0" : MC(0)="@K0,-128,0"
  385. 25150 p(3)="@15 v13 p3 o3 @K0  s2 @s5 @h25 @m-24
  386. 25160 /*p( 4)="f4gg4.rd fg4b2r f4g4gg4f fgrg2r
  387. 25161 p( 4)="f4gg4&grd fg4#b&b4&?0b?1r f4#g&ggg4f #fgr;g4&g4r
  388. 25165 p(84)="f4gg4&grr fgr#g&g4&?0g?1r f4#g&ggg4f #f;g4#f4&f4r
  389. 25170 /*p( 5)="fg4g4.rg g4gb2r gg4f&g4gf g4g<c4.>b4
  390. 25171 p( 5)="#fg4#g4.rg g4#g#b4&b4r #gg4f&g4gf g4g<#c4.>b4
  391. 25175 p(85)="#fg4#g4.rg g4#g#b4&b4r #gg4f&g4gf g4g<#c4.>b4
  392. 25180 /*p( 6)="f4gg4&?0g?1rd fg4b4.&?0b?1r f4g4g?0g4?1f fgrg4&?0g4?1r
  393. 25181 p( 6)="f&fgg4.rd #fg4#b4&b4r #f4g4g#g4f fgr#g4&g4r
  394. 25185 p(86)="f&fgg4.rd #fg4#b4&b4r #f4g4g#g4f fgr#g4&g4r
  395. 25190 /*p( 7)="fg4g4.rg g4gb2r b4.a4.g4& g1&
  396. 25191 p( 7)="fg4g4.rg g4g#b4&b4r b4.a4&?0a?1#g&g& g1&
  397. 25195 p(87)="fg4;g4.rg g4g#b4&b4r b4.;a4&a;g4& g1&
  398. 25200 p( 8)="gr2..
  399. 25205 p(88)="gr2..
  400. 25210 /* B
  401. 25220 p(9)="@16 v12 p3 o4 @K0 s2 @s6 @m-10 @h360
  402. 25230 p(10)="g1^1^1^1&
  403. 25240 p(11)="g1^1
  404. 25250 /* C
  405. 25260 /*
  406. 25270 /*
  407. 25280 MC(10)="@z"
  408. 25281 MC(11)="@z121,+1,+1,,-1,-1
  409. 25282 MC(12)="@z122,,-1,,-1,,-1
  410. 25283 MC(13)="@z122,,-1,-1,-1
  411. 25290 p(12)="@1 v13 p3 o4 @K0 s0 @s6 @h50 @m-24
  412. 25300 p(13)="r2..a aa4<c4d4>a& a2.gf& f2..r
  413. 25301 p(13)="r2..?13a ?12aa4<c4d4>?11#a4& a2^8gf& f2..r
  414. 25310 p(14)="r2..e gg4f4g4e& e2.dc+& c+2..r
  415. 25311 p(14)="r2..?13e gg4?12f4#g4e& ?11e2.dc+& c+2..r
  416. 25320 p(15)="r2..e gg4f4<c4>@m0a& a1^1&
  417. 25321 p(15)="r2..?13e ?12gg4f4<#c4>@m0?11a^1^1&
  418. 25330 p(16)="a1^1^1^1 ?10
  419. 25340 /* F      Ritchie - SOLO A
  420. 25341 MC(2)="" : MC(3)="" : MC(4)="" : MC(25)="" : MC(26)=""
  421. 25350 p(17)="@7 v13 @k0 p3 o3 @s6 @h25 @m52
  422. 25360 p(18)="b4.g4.f4 rbgfg2 f{g&f}dfede{f&e} cfgfbg4.
  423. 25361 p(18)="b4^16..g4.f4 rbgfg2 f{g&f}dfede{f&e} cfgfbg4.
  424. 25362 p(18)="b4^16.g4.f4 rbgfg2 f{g&f}dfede{f&e} cfgfbg4.
  425. 25363 p(18)="b4^16.g4.?26f4 r?25bg?26f?2g2 f{g&f}?2d?26f?25ede?2{f&e} ?26c?2fgfbg4.
  426. 25370 p(19)="<d2^16.r32=0#d&(d4,d-),0&=1c2.>b<c {c&d-&d&>b}4g<{c&>b}gb{b&<c&>b&g}4 |:3{b&<c&>b&g}4:|{b&<cc&d&}4
  427. 25371 p(19)="<d2^16.r32=0#d&(d4,d-)&=1c2.>b<c {c&d-&d&>b}4g<{c&>b}gb{b&<c&>b&g}4 |:3{b&<c&>b&g}4:|{b&<cc&d&}4
  428. 25372 p(19)="?25<d2^16.r32=0#d&(d4,d-)&=1?26c2.>b<c ?25{c&d-&d&>b}4?26g?25<{c&>b}?26g?25b{b&<c&>b&g}4 |:3{b&<c&>b?26g?25}4:|{b&<cc&d&}4
  429. 25380 p(20)="ddg?2f&g2& g4?3g?2d?3f?2c&d?3g?2 d{d-&c}>b?26g?2<c>{b?26g}?2{b<c}>b& b1
  430. 25381 p(20)="#ddgf&g2^64& g4?4g?2d?4f?2c&d?4g?2 d{d-&c}>bg<c>{bg}{b<c}>b& b2..&(b8,e)
  431. 25382 p(20)="?26#dd?25gf&g2^64& g4?4g?2d?4f?2c&d?4g?2 d{d-&c}>b?25g?26<c>{bg}{b<c}>b& b2..&(b8,e)
  432. 25390 p(21)="<df{g&f}df&{g&f&d}{f&g&f&d}4 |:3{f&g&f&d}4:|ff+ g#b&b4g4{f&g&f&d}4 f{gf&}f2>g4
  433. 25391 p(21)="<#df16..{g&f}df&{g&f&d}{f&g&f&d}4 |:3{f&g&f&d}4:|ff+ g?4#b&b4?2g4{f&g&f&d}4 f{gf&}f2>g4
  434. 25392 p(21)="?25<#d?26f16..{g&f}df&{g&f&d}{f&g&f&d}4 |:3{f&g&f&d}4:|ff+ g?4#b&b4?2g4{f&g&f&d}4 f{gf&}f2>g4
  435. 25400 p(22)="|:3 {?3<gb?2>gg}4{?3<fg?2>gg}4{?3<gb?2>gg}4{?3<fg?2>gg}4:| {?3<gb?2>gg}4{?3<fg?2>gg}4{?3<e-f?2>gg}4{?3<fg?2>gg}4
  436. 25401 p(22)="|:3 {?3<gb?2>gg}4{?3<fg?2>gg}4{?3<gb?2>gg}4{?3<fg?2>gg}4:| {?3<gb?2>gg}4{?3<fg?2>gg}4{?3<e-f?2>gg}4{?3<fg?2>gg}4
  437. 25410 p(23)="{?3<gb?2>gg}4{?3<fg>?2gg}4{?3<e-f?2>gg}4{?3<fg?2>gg<}4 {?3e-fe?2>g<}4{?3ded?2>g<}4{?3cdc?2>g}4{b<c}>b <d2&d#d#d#d d2&c#cc>b
  438. 25411 p(23)="{?3<gb?2>gg}4{?3<fg>?2gg}4{?3<e-f?2>gg}4{?3<fg?2>gg<}4 {?3e-fe?2>g<}4{?3ded?2>g<}4{?3cdc?2>g}4{b<c}>b <(c+8d)&d4.&d#d#d#d d2^64&c#cc>b
  439. 25412 p(23)="{?3<gb?2>gg}4{?3<fg>?2gg}4{?3<e-f?2>gg}4{?3<fg?2>gg<}4 {?3e-fe?2>g<}4{?3ded?2>g<}4{?3cdc?2>g}4{b<c}>b <(c+8d)&d4.&d#d;d;d d2^32&c#cc>b
  440. 25420 p(24)="a{b&a}gf{g&f}dfg& a<c>ag<c>a<cc
  441. 25421 p(24)="a{b&a}gf{g&f}dfg& a<c>ag<c>a<cc
  442. 25422 p(24)="a{b&a}gf{g&f}dfg& a<c>ag<c>a<?4;c4
  443. 25429 for i=17 to 24 : q(i)=p(i) : next
  444. 25430 /* G      Ritchie - SOLO B ( LOWER )
  445. 25440 p(25)="@8 v12 @k2  p3 o4 @m0
  446. 25450 p(26)=" |:3bg|d:| |:3<c>g|e-:| |:3 af|c:| |:3bf|d:|
  447. 25460 p(27)=" |:3 bg|e-:| |:3 <c>g|e-:| af+raf+raf+ raf+raf+da
  448. 25470 p(28)=" |:3bg|d:| |:3<c>g|e-:| |:3 af|c:| |:3bf|d:|
  449. 25480 p(29)=" |:3 bg|e-:| |:3 <c>g|e-:| af+raf+raf+ raf+raf+ra
  450. 25490 p(30)="af+raf+raf+ raf+raf+da
  451. 25500 p(31)="|:bfrb<c>gg<c>:| a4.b4.b!4 r<c4.c+4d4
  452. 25501 p(31)="|:bfdb<c>ge-<c>:| a4.b4.b!4 r<c4.c+4d4
  453. 25550 /* J      Jhon Lord - SOLO A
  454. 25560 p(32)="@11 v14 @k0 p3 o3
  455. 25570 p(33)=" <{cdef}16&f2...& f2{cd}f&f4 {cdf&f&}4&c4&c4>bg b<c>bgb<c>bg
  456. 25571 p(33)=" {ab}32<{cdef}16&f2...& f2{cd}f&f4 {cdf&f&}4&c4&c4>bg b<c>bgb<c>bg
  457. 25580 p(34)="L12 < gd>b<fc>a<d>bg<c>af bgdafcgd>b<fc>a< L8 df4d&dcdf& fdff+gbg4
  458. 25590 p(35)="< g2..<c& c4>bg< >b32<c.r32>b32<c.r32 >b32<c..>afc4fa& a<c>b4a4gd
  459. 25596 w="@18 v14 o4 s0 h1 @s2 @h0 @m192
  460. 25600 p(36)="fg{dfg}4{dfgdfgdf}2 {gdfgdfgdfg<c>gfdfg}1 {<c>gfdfg<c>gfdfg<c>gfd&}1 "+w+"<d&c&>b&a&g&f4&(c8a)
  461. 25601 p(36)="fg{dfg}4{dfgdfgdf}2 {gdfgdfgdfg<c>gfdfg}1 {<c>gfdfg<c>gfdfg<c>gfd&}1 "+w+"<d&c&>b&a&g&f4&(c16.a)
  462. 25605 x="@14 v12 o5 s0 h0 @s5 @h0 @m22
  463. 25610 p(37)=x+" f+2..e& e2f+2 {grgrgrgr}2g4ed& d4c4.&"+w+"b&a&g&
  464. 25620 p(38)="o5 r2 <|:4{b&a&gr}8:|> b&a&g&f&e&d&c&>b& a&g&f&e&d&c&>b&a g&f&e&d&c&>b&a&g
  465. 25621 p(38)="o4 r2 <L*3|:4c&e&g&e&c&>|a&f&e-<r:|>L8 {g&f&e&d&c&>b&a&g&f&e&d&r}2.<<c&>b& a&g&_2f&e&d&_c&>b&a g&_f&e&d&c&_>b&a&_g_
  466. 25630 /* K      Jhon Lord - SOLO B ( UPPER )
  467. 25640 p(39)="@12 v11 @k1  p3 o6 s2 h0 @m0
  468. 25650 p(40)="dfdc>bgb<c e-fe-dc>g<ce- ce-c>bafa<c {>b<cde-}4fe-d>b<da-
  469. 25660 p(41)="gfe-fgbag agab<c4>e-c f+dcdgdcd ade-d{de-dc}4de-
  470. 25670 p(42)="dfdc>bgb<c e-fe-dc>g<ce- ce-c>bafa<c {>b<cde-}4fe-d>b<da-
  471. 25680 p(43)="gfe-fgbag agab<c4>e-c f+dcdgdcd adcdbdcd
  472. 25690 p(44)="<c>dcd<d>dcd <d>d<c>dbdad
  473. 25700 p(45)="L12 |: gd>gb<dfe-c>g<ce-g:| L8 |:{f+gf+e-}4dr:| {b!baa-gg-fee-dd-c>b!baa-}1
  474. 25710 /* Coda
  475. 25720 p(46)="@5 v11 @k0 p3 o3 @s6 @h49 @m24
  476. 25730 p(47)="g4.f&f2 <c4.>b&b2 <e-4.d&d2 g4.f+&f+2
  477. 25740 p(48)="b4.a&a2 b4.<c&c2 #g1
  478. 26000 s={0, 1,2,2,2,2, 3,4,5, 1,2, 3,6,7,8, 9,10,11,
  479. 26010       1,2,2,  12,13,14,15,16,  1,2,2,
  480. 26020       17,18,19,20,21,22,23,24, 25,26,27,28,29,30,31,
  481. 26030       1,2,2,2,2, 12,13,14,15,16,
  482. 26040       32,33,34,35,36,37,38, 39,40,41,42,43,44,45,
  483. 26050       1,2,2, 3,84,85, 1,2, 3,86,87,88, 9,10,11, 1,2,2, 46,47,48,   255 }
  484. 26500 savebuf()
  485. 26510 macroext()
  486. 26520 ornext( 0, 48 )
  487. 26530 write( 2 )
  488. 26540 loadbuf()
  489. 27000 /*
  490. 27010 p(0)="@3  p3  v9  q8  L8 o2 @K7    @S5 @H68 @M-16 =0 r*3 r32
  491. 27110 /* INTRO
  492. 27120 p(1)="@3 v12 p3 o3 @m0 @K5
  493. 27121 MC(7)="@K5" : MC(8)="@K-2"
  494. 27130 p(2)="?8g?7f&ed?5 g4.?8g?7  fe&d?5 g4.f4  ?8g?7f&ed?5g4.?8g?7   f&ed?5c&c2 q8
  495. 27141 MC(1)="@K6" : MC(0)="@K6,-122,0"
  496. 27150 p(3)="@15 v13 p3 o3 @K6  s2 @s5 @h25 @m-24
  497. 27220 p(9)="@16 v12 p3 o4 @K0 s2 @s6 @m-16 @h360
  498. 27230 p(10)="b1^1^1^1&
  499. 27240 p(11)="b1^1
  500. 27290 p(12)="@1 v13 p3 o4 @K7 s0 @s6 @h50 @m-24
  501. 27330 p(16)="@k7 a1& @k8 a1& @k9 a1& @k10 a1 ?10
  502. 27350 p(17)="@7 v13 @k6 p3 o3 @s6 @h25 @m52
  503. 27440 p(25)="@8 v13 @k7  p1 o4 @m0
  504. 27560 p(32)="@11 v13 @k7 p3 o3 s0 h1 @s4 @h0 @m24
  505. 27561 /*p(32)="@11 v13 @k7 p3 o3 s0 h1 @s4 @h0 @m0
  506. 27610 p(37)=x+" a2..g& g2a2 <{crcrcrcr}2c4>gf& f4e4.&"+w+"b&a&g&
  507. 27640 p(39)="@12 v10 @k8  p2 o6 s2 h0 @m0
  508. 27720 p(46)="@5 v11 @k6 p3 o3 @s6 @h49 @m24
  509. 28510 macroext()
  510. 28520 ornext( 6, 48 )
  511. 28530 write( 3 )
  512. 30000 /*        ORGAN + ETC
  513. 30010 p(0)="@5 p3  v9  q8  L8 o4 @K0                   o4 r32
  514. 30020 /* INTRO
  515. 30100 p(1)="@4 v11 p3 o3 ~2
  516. 30110 p(2)="r1^1^1^1
  517. 30120 p(3)="r1^1^1^1
  518. 30130 p(4)="gbag<c4.>g bag<c4.>b4 gbag<c4.>g bagf&f2
  519. 30140 /* A
  520. 30150 p(5)="@10 v9  p3 o5
  521. 30160 p(6)=">b1^1 a1^1<
  522. 30170 p(7)=">b1^1 <c4.c4.c4& c1
  523. 30180 p(8)=">b1^1  b4.a4.<c4& c1& cr2..
  524. 30185 /* B
  525. 30190 p(9)="@10 v9  p3 o5
  526. 30200 p(10)=">b1^1 b1^1<
  527. 30210 p(11)="c1^1
  528. 30220 /* C
  529. 30230 /*
  530. 30240 /* D
  531. 30250 p(12)="@10 v9  p3 o4
  532. 30260 p(13)="d1^1 d1^1
  533. 30270 p(14)="g4.a2<d& d4.c2>a& a1^1
  534. 30280 p(15)="b1^1 a1^1
  535. 30290 p(16)="b4rb4.rb& b4rb4.r<c& c4rc4.rc& c4rc&c2
  536. 30291 p(16)="~6b4rb4.rb& b4rb4.r<c& c4rc4.rc& c4rc&c2
  537. 30300 /* F
  538. 30310 p(17)="@9 v9  p3 o4
  539. 30320 p(18)="g1^1 f1^1
  540. 30330 p(19)="g1^1 g1^1
  541. 30340 p(20)="g1^1 f1^1
  542. 30350 p(21)="g1^2rf4. g1^1
  543. 30360 p(22)="g1^1 g1^1
  544. 30370 p(23)="g1^1 f+1^1
  545. 30380 p(24)="f+1^1
  546. 30390 /* G
  547. 30400 p(25)="@9 v9  p3 o4
  548. 30410 p(26)="g1 g1 f1 g1
  549. 30411 p(26)="g1 g1 f1 f1
  550. 30420 p(27)="g1 g1 f+1^1
  551. 30430 p(28)="g1 g1 f1 g1
  552. 30431 p(28)="g1 g1 f1 f1
  553. 30440 p(29)="g1 g1 f+1^1
  554. 30450 p(30)="f+1^1
  555. 30460 p(31)="|: g2g2:| f+1^1
  556. 30470 /*        Jhon Lord - SOLO A
  557. 30480 /*p(32)="@4 v9  @k0 p3 o5
  558. 30490 /*p(33)="< f1& f2{cd}f&f4 {cdf&f&}4&c4&c4>bg b<c>bgb<c>bg
  559. 30500 /*p(34)="L12 < gd>b<fc>a<d>bg<c>af bgdafcgd>b<fc>a< L8 df4d&dcdf& fdff+gbg4
  560. 30510 /*p(35)="< g2..<c& c4>bg<c-32c..c-32c.. c-32c..>afc4fa& a<c>b4a4gd
  561. 30520 /*p(36)="fg{dfg}4{dfgdfgdf}2 {gdfgdfgdfg<c>gfdfg}1 {<c>gfdfg<c>gfdfg<c>gfd}1 r1
  562. 30530 /*p(37)="d2..c& c2d2 {erererer}2e4ed& d4&c2.
  563. 30540 /*p(38)="r1^1^1^1
  564. 30550 /*        J
  565. 30560 p(32)="@9 v9  @k0 p3 o4
  566. 30570 p(33)=" g1^1 f1^1
  567. 30580 p(34)=" g1^1 f1^1
  568. 30590 p(35)=" g1^1 f1^1
  569. 30600 p(36)=" g1^1 f1^1
  570. 30610 p(37)=" f+1^1 e1^1
  571. 30612 p(37)=x+"p3 o6 d2..c& c2d2 {erererer}2"+p(32)+"@m0 e2^1
  572. 30620 p(38)=" f+1^1 e1^1
  573. 30700 /* K
  574. 30710 p(50)="@13 v12 o1 p3 @m0
  575. 30720 p(51)="g2.f4 e-1 f2.e-4 d2.>b4<
  576. 30721 p(51)="(g-8g)&g8&g2f4 e-1 (e8f)&f8&f2e-4 d2.>b4<
  577. 30730 p(52)="e-2.d4 c2a2 d2<d2& de-dcd4f4
  578. 30731 p(52)="(d8e-)&e-8&e-2d4 c2(g8a)&a4. d2<(c8d)&d4.& d(d16e-)&e-16dc(e-8d)&d(e16f)&f8.
  579. 30740 p(53)="g2.f4 e-2.c4 f4.gf4e-4 d2.>b4<
  580. 30741 p(53)="(g-8g)&g8g2f4 e-2.c4 (e8f)&f4gf4e-4 d2.>b4<
  581. 30750 p(54)="e-2.d4 c2a2 >f+2g2 a2b2
  582. 30751 p(54)="(d8e-)&e-8&e-2d4 c2(g8a)&a4. >f+2g2 a2b2
  583. 30760 p(55)="<c2d2& d4c4>b4a4 <|: {gd>b}4g4<{e-c>g}4<c4:|
  584. 30761 p(55)="<c2d2& d4c4>b4a4 <|: {gd>b}4(f16g)&g8.<{e-c>g}4(b-16<c)&c8.:|
  585. 30770 p(56)="(f+4.d),24<c&(c1>d)r2
  586. 30800 /* ENDING
  587. 30810 p(40)="@9 v9  p3 @K0
  588. 30820 p(41)="o3 g4.f8^2 <c4.>b8^2 <e-4.d8^2 e-4.d8^2
  589. 30830 p(42)="e-4.d8^2 e-4.f+8^2 g1
  590. 31000 s={0, 1,2,3,4,4, 5,6,7, 1,4, 5,6,8, 9,10,11,
  591. 31010       1,2,4,  12,13,14,15,16,  1,2,4,
  592. 31020       17,18,19,20,21,22,23,24,  25,26,27,28,29,30,31,
  593. 31030       1,2,3,4,4, 12,13,14,15,16,
  594. 31040       32,33,34,35,36,37,38,   50,51,52,53,54,55,56,
  595. 31050       1,2,4,  5,6,7, 1,4, 5,6,8, 9,10,11,  1,2,4, 40,41,42,  255 }
  596. 31500 write( 4 )
  597. 32010 p(0)="@5 p3  v9  q8  L8 o4 @K0                   o4 r32
  598. 32100 p(1)="@4 v11 p3 o3
  599. 32130 p(4)="b<dc>b<e4.>b <dc>b<e4.d4 >b<dc>b<e4.>b <dc>ba&a2
  600. 32150 p(5)="@10 v10 p1 o5
  601. 32160 p(6)=" d1^1 c1^1
  602. 32170 p(7)=" d1^1  e4.e4.e4& e1
  603. 32180 p(8)=" d1^1  d4.c4.e4& e1& er2..
  604. 32190 p(9)="@10 v11 p1 o5
  605. 32200 p(10)=" d1^1 e-1^1
  606. 32210 p(11)="e-1^1
  607. 32250 p(12)="@10 v10 p1 o4
  608. 32260 p(13)="f1^1 f1^1
  609. 32270 p(14)="<c4.d2 f& f4.e2 c+& c+1^1
  610. 32280 p(15)="d1^1 d1^1
  611. 32290 p(16)="d4rd4.rd& d4rd4.r e& e4re4.re& e4re&e2
  612. 32291 p(16)="~6d4rd4.rd& d4rd4.r e& e4re4.re& e4re&e2
  613. 32310 p(17)="@9 v10 p1 o4
  614. 32320 p(18)="b1^1 a1^1
  615. 32330 p(19)="b1^1<c1^1>
  616. 32340 p(20)="b1^1 a1^1
  617. 32350 p(21)="<c1^2r>b4. b1^1
  618. 32360 p(22)="b1^1 b1^1
  619. 32370 p(23)="b1^1 a1^1
  620. 32380 p(24)="a1^1
  621. 32410 p(26)="b1 b1 a1 b1
  622. 32420 p(27)="b1<c1>a1^1
  623. 32430 p(28)="b1 b1 a1 b1
  624. 32440 p(29)="b1<c1>a1^1
  625. 32450 p(30)="a1^1
  626. 32460 p(31)="|: b2<c2>:| a1^1
  627. 32480 p(32)="@9 v10 @k1 p1 o4
  628. 32530 p(37)="f+2..e& e2f+2 {grgrgrgr}2g4gf+& f+4&e2.
  629. 32570 p(33)=" b1^1 a1^1
  630. 32580 p(34)=" b1^1 a1^1
  631. 32590 p(35)=" b1^1 a1^1
  632. 32600 p(36)=" b1^1 a1^1
  633. 32610 p(37)=" a1^1 g1^1
  634. 32620 p(38)=" a1^1 g1^1
  635. 32710 p(50)="@13 v13 o1 p1 @m0
  636. 32800 /* ENDING
  637. 32810 p(40)="@9 v9  p3 @K0
  638. 32820 p(41)="o3 g4.f8^2 <c4.>b8^2 <e-4.d8^2 g4.f+8^2
  639. 32830 p(42)="g4.f+8^2 g4.a8^2 b1
  640. 33000 s={0, 1,2,3,4,4, 5,6,7, 1,4, 5,6,8, 9,10,11,
  641. 33010       1,2,4,  12,13,14,15,16,  1,2,4,
  642. 33020       17,18,19,20,21,22,23,24,  25,26,27,28,29,30,31,
  643. 33030       1,2,3,4,4, 12,13,14,15,16,
  644. 33040       32,33,34,35,36,37,38,   25,26,27,28,29,30,31,
  645. 33050       1,2,4,  5,6,7, 1,4, 5,6,8, 9,10,11,  1,2,4, 40,41,42,  255 }
  646. 33500 write( 5 )
  647. 34010 p(0)="@5 p3  v9  q8  L8 o4 @K0                   o4 r32
  648. 34130 p(4)="r1^1^1^1
  649. 34150 p(5)="@10 v11 p1 o5
  650. 34160 p(6)=" g1^1 f1^1
  651. 34170 p(7)=" g1^1  g4.g4.g4& g1
  652. 34180 p(8)=" g1^1  f4.f4.g4& g1& gr2..
  653. 34200 p(10)=" g1^1 g1^1
  654. 34210 p(11)="g1^1
  655. 34250 p(12)="@10 v11 p1 o4
  656. 34260 p(13)="a1^1 b1^1
  657. 34270 p(14)="r1 r2..<e& e1^1
  658. 34280 p(15)="f1^1 f1^1
  659. 34290 p(16)="f4rf4.rf& f4rf4.r g& g4rg4.rg& g4rg&g2
  660. 34291 p(16)="~6f4rf4.rf& f4rf4.r g& g4rg4.rg& g4rg&g2
  661. 34310 p(17)="@9 v11 p1 o4
  662. 34320 p(18)="<d1^1 c1^1
  663. 34330 p(19)="d1^1 e1^1
  664. 34340 p(20)="d1^1 c1^1
  665. 34350 p(21)="e1^2rd4. d1^1
  666. 34360 p(22)="e-1^1 d1^1
  667. 34370 p(23)="e-1^1 d1^1
  668. 34380 p(24)="d1^1
  669. 34410 p(26)="<d1 e-1 c1 d1
  670. 34420 p(27)="e-1 e-1 d1^1
  671. 34430 p(28)="d1 e-1 c1 d1
  672. 34440 p(29)="e-1 e-1 d1^1
  673. 34450 p(30)="d1^1
  674. 34460 p(31)="|: d2e-2:| d1^1
  675. 34480 p(32)="@9 v11 @k3 p1 o4
  676. 34530 /*p(37)="a2..g& g2a2 <{crcrcrcr}2c4ed& d4&c2.
  677. 34570 p(33)="<d1^1 c1^1
  678. 34580 p(34)=" d1^1 c1^1
  679. 34590 p(35)=" d1^1 c1^1
  680. 34600 p(36)=" d1^1 c1^1
  681. 34610 p(37)=" d1^1 c1^1
  682. 34620 p(38)=" d1^1 c1^1
  683. 34710 p(50)="@13 v14 o1 p1 @m0
  684. 34800 /* ENDING
  685. 34810 p(40)="@9 v9  p3 @K0
  686. 34820 p(41)="o4 _6 g4.f8^2 <c4.>b8^2 <e-4.d8^2 @K0 ~ >b4.a8^2
  687. 34830 p(42)="b4.a8^2 b4.<c8^2 d1
  688. 35000 s={0, 1,2,3,4,4, 5,6,7, 1,4, 5,6,8, 9,10,11,
  689. 35010       1,2,4,  12,13,14,15,16,  1,2,4,
  690. 35020       17,18,19,20,21,22,23,24,  25,26,27,28,29,30,31,
  691. 35030       1,2,3,4,4, 12,13,14,15,16,
  692. 35040       32,33,34,35,36,37,38,   25,26,27,28,29,30,31,
  693. 35050       1,2,4,  5,6,7, 1,4, 5,6,8, 9,10,11,  1,2,4, 40,41,42, 255 }
  694. 35500 write( 6 )
  695. 45000 /*        GUITAR
  696. 45010 p(0)="@4 p3  v9  q8  L8 o4 @K0 @S5 @H68 @M-16 =0 o4 r32
  697. 45110 /* INTRO
  698. 45120 p(1)="@19 v12 @k-7 p3 o3 @m0 ~3
  699. 45121 MC(7)="" : MC(8)=""
  700. 45130 p(2)="gb&ag?5<c4.>g ba&g?5<c4.>b4 gb&ag?5<c4.>g b&ag?5f&f2
  701. 45140 /* A
  702. 45150 p(3)="@5 v12 @k0 p3 o2 @s6 @h49 @m24
  703. 45160 p(4)="g4.<g&g2^1> f4.<f&f2^1 >
  704. 45170 p(5)="g4.<g&g2^1 c4.g4.b4& b1
  705. 45171 p(5)="g4.<g&g2^1 c4.g4.b4& <#c2&c2
  706. 45180 p(6)="g4.<g&g2^1> f4.<f&f2^2&f>ff+4
  707. 45190 p(7)="g4.<g&g2^1 > b4.f4.<c4& c1& cr2..
  708. 45200 /* B
  709. 45210 p(8)="@5 v12 @k0 p3 o2 @s6 @h49 @m26
  710. 45220 p(9)="g4.<g4.f4 g4.g4.{f&g&}&f e-4.g&g2 #b2&b2
  711. 45230 p(10)="c4.g4.b4& <#c2&c2
  712. 45240 /* C
  713. 45250 /*
  714. 45260 /*
  715. 45270 p(11)="@5 v12 @k0 p3 o3 @s6 @h49 @m26
  716. 45280 p(12)="d2.a4 <d2.c4 >b1& b1
  717. 45290 p(13)="c4.d2f& f4.e2>a& a4.<#a2&a& a1
  718. 45300 p(14)=">b4.<b&b2& b1 d4.a4.<#d4& d1
  719. 45310 p(15)=">b4.a-2b& b1 <#c2&c2^1
  720. 45320 /* F
  721. 45321 for i=17 to 24 : p(60+i)=q(i) : next
  722. 45322 p(77)="@17 v13 @k3 p3 o3 @s6 @h25 @m52
  723. 45323 MC(2)="@17" : MC(3)="@20" : MC(4)="@21" : MC(25)="@22" : MC(26)="@23"
  724. 45330 p(16)="r1^1^1^1
  725. 45340 p(17)="r1^1^1^1
  726. 45350 p(18)="r1^1^1^1
  727. 45360 p(19)="r1^1^1^1
  728. 45370 p(20)="r1^1^1^1
  729. 45380 p(21)="r1^1^1^1
  730. 45390 p(22)="r1^1
  731. 45400 /* G      Ritchie - SOLO B ( UPPER )
  732. 45410 p(23)="@8 v13 @k-2 p3 o5 @m0
  733. 45420 p(24)="|:3d>b|g<:| |:3e-c|>g<:| |:3 c>a|f<:| |:3d>b|f<:|
  734. 45430 p(25)=">|:3 bg|e-:| |:3 ge-|c:| f+d4dgd4f+ g+d4f+ad4a<
  735. 45440 p(26)="|:3d>b|g<:| |:3e-c|>g<:| |:3 c>a|f<:| |:3d>b|f<:|
  736. 45450 p(27)=">|:3 bg|e-:| |:3 ge-|c:| f+d4f+gd4f+ g+d4g+ad4a
  737. 45460 p(28)="f+d4f+gd4g g+d4da2<
  738. 45470 p(29)="|:d>bg<de-c>g<e-:| >a4.b4.b!4 r<c4.c+4d4
  739. 45480 /* J
  740. 45490 p(30)="@6 v10 @k0 p3 o2 s2 @s6 @h25 @m18
  741. 45500 p(31)="|: g4<g4.fd>g& g4<g2fd> :|
  742. 45510 p(32)=" g4<g4.fd>g& g4<g2fd>  g4<g4.fd>g& g4b4<cdcd>
  743. 45520 p(33)=" g4<g4.fd>g& g4<ggggfd >g4<g4.fd>g& g4.<g&g2>
  744. 45530 p(34)="|: g4<g4.fd>g& g4<g2fd> :|
  745. 45540 p(35)="< d4.dd4.d d4.dd4.d d4.dd4.d& d4.d4d>ba
  746. 45541 p(35)="< d2.a4< d1 >c2.g4 < c1 >
  747. 45550 p(36)="< d4.dd4.d d4.dd4.d d4.dd4.d& d4.dd2
  748. 45551 p(36)="  d2.a4 <d2a4f+4 >c2.g4< c1
  749. 45560 /* K      Jhon Lord - SOLO B ( LOWER )
  750. 45570 p(39)="@12 v11 @k-1 p3 o6 s2 @m0
  751. 45580 p(40)=">b<d>bagdga <cdc>bge-g<c> a<c>agfcfa {gab<c}4dc>bfb<d
  752. 45590 p(41)="e->bgb<e-gfe- e-ce-gae-c>g <d>af+d<e->af+d <d>abg{f+gf+e}4f+g
  753. 45600 p(42)=" b<d>bagdga <cdc>bge-g<c> a<c>agfcfa {gab<c}4dc>bfb<d
  754. 45610 p(43)="e->bgb<e-gfe- e-ce-gae-c>g <d>af+d<e->af+d <f>af+d<g>af+d
  755. 45620 p(44)="<a>bab<b>bab <b>b<a>b<g>b<f+>b L12 |: <gd>gb<dge-c>g<ce-g:| L8
  756. 45630 p(45)="|: {de-d>b}4ar:| <{dd-c>b!baa-gg-fee-dd-c>b!}1
  757. 45640 /* Coda
  758. 45650 p(46)="@5 v12 @k0 p3 o2 @s6 @h49 @m24
  759. 45660 p(47)="g4.f&f2 <c4.>b&b2 <e-4.d&d2 g4.f+&f+2
  760. 45670 p(48)="b4.a&a2 b4.<c&c2 > b1
  761. 46000 s={ 0, 1,2,2,2,2, 3,4,5, 1,2, 3,6,7, 8,9,10,
  762. 46010        1,2,2,  11,12,13,14,15,  1,2,2,
  763. 46020        77,78,79,80,81,82,83,84, 23,24,25,26,27,28,29,
  764. 46030        1,2,2,2,2, 11,12,13,14,15,
  765. 46040        30,31,32,33,34,35,36,  39,40,41,42,43,44,45,
  766. 46050        1,2,2,  3,4,5, 1,2, 3,6,7, 8,9,10,  1,2,2, 46,47,48,  255 }
  767. 46500 savebuf()
  768. 46510 ornext( 3, 51 ) : macroext()
  769. 46520 write( 7 )
  770. 46530 loadbuf()
  771. 47010 p(0)="@4 p3  v9  q8  L8 o4 @K5 @S5 @H68 @M-16 =0 o4 r*1 r32
  772. 47110 /* INTRO
  773. 47120 p(1)="@19 v12 @k0 p3 o3 @m0
  774. 47121 MC(7)="@K0" : MC(8)="@K2"
  775. 47130 p(2)="?8g?7f&ed?5 g4.?8g?7  fe&d?5 g4.f4  ?8g?7f&ed?5g4.?8g?7   f&ed?5c&c2
  776. 47150 p(3)="@5 v13 @k3 p2 o2 @s6 @h49 @m24
  777. 47210 p(8)="@5 v13 @k3 p2 o2 @s6 @h49 @m26
  778. 47270 p(11)="@5 v13 @k3 p2 o3 @s6 @h49 @m26
  779. 47322 p(77)="@17 v13 @k-3 p3 o3 @s6 @h25 @m52
  780. 47410 p(23)="@8 v12 @k-7 p2 o5 @m0
  781. 47490 p(30)="@6 v12 @k3 p2 o2 s2 @s6 @h25 @m18
  782. 47570 p(39)="@12 v10 @k-8 p1 o6 s2 @m0
  783. 47650 p(46)="@5 v12 @k6 p3 o2 @s6 @h49 @m24
  784. 48510 ornext( -3, 51 ) : macroext()
  785. 48520 write( 8 )
  786. 50000 /*        BASS DR
  787. 50010 p(0)=" v9 @R1 p3 o2 L8 r*4
  788. 50020 a="@n30<c+*0>@n9
  789. 50030 b="@n30<a*0>@n9
  790. 50099 /*p(79)="|:8"+a+"|:8c4d4:|:|
  791. 50100 /* INTRO
  792. 50110 p(1)=a+"c1r1^1^2rccc
  793. 50120 p(2)=a+"c1r1^1^1
  794. 50130 p(3)="c2c2 c4.c4c4. c2c2 cc4"+a+"c4c4.
  795. 50140 p(4)="c2c2 c4.c4c4. c2c2 c4.c4c4.
  796. 50150 /* A
  797. 50160 p(5)="r1^1 "+a+"c4."+b+"c4c4. r1
  798. 50170 p(6)="|: "+a+"c4."+b+"c4 c4. r1 :|
  799. 50180 p(7)=a+"|: c2c2 c4.c4c4.:|
  800. 50190 p(8)="r1^1 "+a+"c4."+b+"c4c4. r1
  801. 50200 p(9)="|: "+a+"c4."+b+"c4 c4. r1 :| r1
  802. 50210 /* B
  803. 50220 p(10)=a+"|:c4.cr2:| "+b+"c2c2 c4.c4c4.
  804. 50230 p(11)=a+"c4.c4c4. c1
  805. 50240 /* C
  806. 50250 p(12)=a+"c1 r2rccc "+b+"c1 r1
  807. 50260 p(13)=a+"|: c2c2 c4.c4c4.:|
  808. 50270 /* D
  809. 50280 p(14)=a+"c4.cccrc rcrcccr4 c4.cccrc rcrcccr4
  810. 50290 p(15)=a+"c4."+b+"c2"+b+"c r4."+b+"c2"+b+"c r2c2 c1
  811. 50300 p(16)="c2c4.c rcrcc2 c4.crc4. c4.cc2
  812. 50310 p(17)=a+"c4."+b+"c2"+b+"c  r4."+b+"c2"+b+"c  r4."+b+"c2"+b+"c  r4."+b+"c2r
  813. 50320 /* E
  814. 50330 p(18)=a+"c1 r2rccc "+a+"c1 r1
  815. 50340 p(19)=a+"c2c2 c4.crc4. ccr4c4.c rcrcr2
  816. 50350 /* F
  817. 50360 p(20)=a+"|: c2c2 c4.crcrc:|
  818. 50370 p(21)=a+"|: c2c2 c4.c|rcrc:|r2
  819. 50380 p(22)=a+"|: c2c4.c rcrcc2:|
  820. 50390 p(23)=a+"|:3 c4.crc4.:| c1
  821. 50400 p(24)="|: "+a+"c2ccrc rcrcccr4:|
  822. 50410 p(25)=a+"c2ccrc rcrcccr4 "+a+"c4.crc4. c2c2
  823. 50420 p(26)=a+"c4.crc4. c1
  824. 50430 /* G
  825. 50440 p(27)="|:4 "+b+"c4."+b+"c4c"+a+"r4:|"
  826. 50441 p(27)="|:4 "+b+"c4."+b+"c4cr4:|"
  827. 50450 p(28)="|:2 "+b+"c4."+b+"c4c"+a+"r4:| "+b+"c4.crcrc rcrcr2
  828. 50451 p(28)="|:2 "+b+"c4."+b+"c4cr4:| "+b+"c4.crcrc rcrcr2
  829. 50460 p(29)="c2c4.c rc4.ccr4 "+b+"c4."+b+"c4c"+b+"r4  cc4.cc4.
  830. 50461 p(29)="c2c4.c rc4.ccr4 "+b+"c4."+b+"c4cr4  cc4.cc4.
  831. 50470 p(30)="|: c4.crc4.:| "+a+"c2ccrc rcrcccr4
  832. 50480 p(31)=a+"c2ccrc rcrcccr4
  833. 50490 p(32)="|:4 r4"+b+"c4:| c4.crc4. c2cc4.
  834. 50500 /* J
  835. 50510 p(33)="|: "+a+"c2c4.c rc4.c2:|
  836. 50520 p(34)="|: "+a+"c2c4.c rc4.c2:|
  837. 50530 p(35)="|: "+a+"c2c4.c rc4.c2:|
  838. 50540 p(36)="|: "+a+"c2c4.c rc4.c2:|
  839. 50550 p(37)="|: "+a+"c2c4.c rc4.cc4.:|
  840. 50560 p(38)="|: "+a+"c2c4.c rc4.cc4.:|
  841. 50570 /* K
  842. 50580 p(39)="|: "+a+"c2c2 "+b+"c4."+b+"c4.r4 :|
  843. 50581 p(39)="|: "+a+"c2c2 "+b+"c4."+b+"c4c4. :|
  844. 50590 p(40)=a+"c2c2 |:"+b+"c4."+b+"c4.r4 :| c2c2
  845. 50591 p(40)=a+"c2c2 |:"+b+"c4."+b+"c4c4. :| c2c2
  846. 50600 p(41)="|: "+a+"c2c2 "+b+"c4."+b+"c4.r4 :|
  847. 50601 p(41)="|: "+a+"c2c2 "+b+"c4."+b+"c4c4. :|
  848. 50610 p(42)=a+"c2c2 "+b+"c4."+b+"c4.r4 c2c2 c4.crc4.
  849. 50611 p(42)=a+"c2c2 "+b+"c4."+b+"c4c4. c2c2 c4.crc4.
  850. 50620 p(43)="c2c2 c4.crc4. |:4 r4"+b+"c4:|
  851. 50630 p(44)="c4.crc4. c2cc4.
  852. 50640 /* L
  853. 50650 p(45)=a+"c1 r1^1^1
  854. 50660 p(46)=a+"|: c2c2 c4.crc4.:|
  855. 50670 /* Coda
  856. 50680 p(47)=a+"c1 r1^1^1
  857. 50690 p(48)=a+"|: c2c2 c4.crc4.:|
  858. 50700 p(49)="|:4 "+a+"c4."+b+"c4."+b+"r4:|
  859. 50710 p(50)="|: "+a+"c4."+b+"c4."+b+"r4:| "+a+"c1
  860. 51000 s={ 0, 1,2,3,4, 5,6,7,8,9, 10,11,
  861. 51010        12,13, 14,15,16,17,  18,19,
  862. 51020        20,21,22,23,24,25,26, 27,28,29,30,31,32,
  863. 51030        1,2,3,4, 14,15,16,17,
  864. 51040        33,34,35,36,37,38, 39,40,41,42,43,44,
  865. 51050        45,46,  5,6,7,8,9, 10,11, 47,48, 49,50,    255 }
  866. 51500 write(9)
  867. 52000 /*        SNARE
  868. 52010 p(0)=" v9 @R1 p3 o2 L8 r*3
  869. 52110 /* INTRO
  870. 52120 p(1)="r1^1^1^2rfff
  871. 52130 p(2)="r1^1^1^2{v10dv9ddd@n29v10fv9fff}2@n26
  872. 52135 p(62)="r1^1^1^2d{dd}{dddd}4
  873. 52140 p(3)="|:4 r4d4r4d4:|
  874. 52150 p(4)="|:4 r4d4r4d4:|
  875. 52155 p(64)="|:4 r4d4|r4d4:|{eedd}4d4
  876. 52160 /* A
  877. 52170 p(5)="L16 deeeeedeeeeedeee @n29v11f@n26v9eeedeeededddeee r4d4r4d4 deeedeeededddeee L8
  878. 52180 p(6)="L16 r4d4r4d4 deeedeeev10fv9fv7ffffffv9 r4d4r4d4 deeedrdreeeev11d4v9 L8
  879. 52190 p(7)="|:4 r4d4r4d4:|
  880. 52200 p(8)="L16 deeeeedeeeeedeee deeedeeededdd4 r4d4r4d4 deeedeeededev10fv7fffv9 L8
  881. 52210 p(9)="L16 r4d4r4d4 deeedeeeggffv7ffffv9 r4d4r4d4 {dee}4|:3{eee}4:| d2.f4 L8
  882. 52215 p(79)="L16 r4d4r4d4 deeedeeeggffv7ffffv9 r4d4r4d4 L32d|:4v10ev7eee:|v8|:4e:|v9|:4e:|v10|:7e:|v10 d2.v9f4 L8
  883. 52216 p(79)="L16 r4d4r4d4 deeedeeeggffv7ffffv9 r4d4r4d4 L32d|:4v10ev7eee:|L8v8{eee}v9{eee}v10e*9e*9|:3e*8:|v10 d2.v9f4 L8
  884. 52220 /* B
  885. 52230 p(10)="|:4 r4d4r4d4:|
  886. 52240 p(11)="|:3 r4d4:| {deeedeee}2
  887. 52250 /* C
  888. 52260 p(12)="r1 r2rfff r1 L16 dd@n29v11fr@n26v9drdddreedddd L8
  889. 52270 p(13)="|:7 r4d4:| L16 @n29v10ff@n26v9ddv11d4v9 L8
  890. 52280 /* D
  891. 52290 p(14)="|:8 r4d4:|
  892. 52300 p(15)="|:7 r4d4:| {eedd}4d4
  893. 52305 p(65)="|:7 r4d4:| @n29v11f@n26v9{dd}{dddd}4
  894. 52310 p(16)="|:8 r4d4:|
  895. 52320 p(17)="|:8 r4d4:|
  896. 52340 /* E
  897. 52350 p(18)="r1 r2rfff r1 L16 ddddv11av8aaav11gv8gggv11fv9fff L8
  898. 52360 p(19)="|:7 r4d4:| {dedd}4v11d4v9
  899. 52370 /* F
  900. 52380 p(20)="|:8 r4d4:|
  901. 52390 p(21)="|:7 r4d4:| {dedd}4d4
  902. 52400 p(22)="|:8 r4d4:|
  903. 52410 p(23)="|:7 r4d4:| {@n29v11fv9f@n26dddddd}2
  904. 52420 p(24)="|:8 r4d4:|
  905. 52430 p(25)="|:8 r4d4:|
  906. 52440 p(26)="|:3 r4d4:| {eedd}4d4
  907. 52450 /* G
  908. 52460 p(27)="|:8 r4d4:|
  909. 52470 p(28)="|:7 r4d4:| {dddd}4{v11fv9fff}4
  910. 52480 p(29)="|:8 r4d4:|
  911. 52490 p(30)="|:8 r4d4:|
  912. 52500 p(31)="|:4 r4d4:|
  913. 52510 p(32)="|:4 {dddd}4|r4:|d4 |:4 r4d4:|
  914. 52520 /* J
  915. 52530 p(33)="|:8 r4d4:|
  916. 52540 p(34)="|:8 r4d4:|
  917. 52550 p(35)="|:8 r4d4:|
  918. 52560 p(36)="|:8 r4d4:|
  919. 52570 p(37)="|:8 r4d4:|
  920. 52580 p(38)="|:8 r4d4:|
  921. 52590 /* K
  922. 52600 p(39)="|:8 r4d4:|
  923. 52610 p(40)="|:8 r4d4:|
  924. 52620 p(41)="|:8 r4d4:|
  925. 52630 p(42)="|:8 r4d4:|
  926. 52640 p(43)="|:4 r4d4:| |:4 {dddd}4r4:|
  927. 52650 p(44)="|:4 r4d4:|
  928. 52660 /* L
  929. 52670 p(45)="r1^1^1 r4{dedd}4{ddddv11fv9fff}2
  930. 52680 p(46)="|:8 r4d4:|
  931. 52690 /* Coda
  932. 52700 p(47)="r1^1^1 {deeedddd}2|:3{v11fv8f}:|v9{ff}
  933. 52710 p(48)="|:8 r4d4:|
  934. 52720 p(49)="|:8 r4d4:|
  935. 52730 p(50)="|:4 r4d4:|
  936. 53000 s={ 0, 1,2,3,4, 5,6,7,8,9, 10,11,
  937. 53010        12,13, 14,15,16,17,  18,19,
  938. 53020        20,21,22,23,24,25,26, 27,28,29,30,31,32,
  939. 53030        1,62,3,64, 14,65,16,17,
  940. 53040        33,34,35,36,37,38, 39,40,41,42,43,44,
  941. 53050        45,46,  5,6,7,8,79, 10,11,  47,48, 49,50,   255 }
  942. 53500 write(10)
  943. 54000 /*        HIHAT / RIDE
  944. 54010 p(0)=" v9 @R1 p3 o2 L4 r*3
  945. 54020 a="@n30<c+*0>@n27
  946. 54030 b="@n30<a*0>@n27
  947. 54099 /*p(79)="|:8"+a+"|:8c4d4:|:|
  948. 54100 /* INTRO
  949. 54110 p(1)="r2 |:12 f+:| f+2
  950. 54120 p(2)="r2 |:12 f+:| r2
  951. 54130 p(3)="|:12 a+:|a+1
  952. 54135 p(3)=a+"r |:11 a+:|a+1
  953. 54140 p(4)="|:16 a+:|
  954. 54145 p(4)=a+"r |:15 a+:|
  955. 54147 p(64)=a+"r |:13 a+:| r2
  956. 54150 /* A
  957. 54160 p(5)="r1^1^1^1
  958. 54170 p(6)="r1^1^1^1
  959. 54180 p(7)="ra+ |:14 a+:|
  960. 54190 p(8)="r1^1^1^1
  961. 54200 p(9)="r1^1^1 |:8 f+:|
  962. 54210 /* B
  963. 54220 p(10)="|: ra+a+a+ a+a+a+a+:|
  964. 54230 p(11)="ra+a+a+ a+a+r2
  965. 54240 /* C
  966. 54250 p(12)="rf+f+f+ f+f+f+2 rf+f+f+ r1
  967. 54260 p(13)="ra+ |:12 a+:| r2
  968. 54270 /* D
  969. 54280 p(14)="ra+ |:14 a+:|
  970. 54290 p(15)="r1^1 ra+a+a+ a+a+r2
  971. 54300 p(16)="|:16 a+:|
  972. 54310 p(17)="r1^1^1^1
  973. 54320 /* E
  974. 54330 p(18)="r2f+f+ f+f+f+2 rf+f+f+ r1
  975. 54340 p(19)="ra+ |:12 a+:| r2
  976. 54350 /* F
  977. 54360 p(20)="ra+ |:14 a+:|
  978. 54370 p(21)="ra+ |:12 a+:| r2
  979. 54380 p(22)="ra+ |:14 a+:|
  980. 54390 p(23)="ra+ |:12 a+:| r2
  981. 54400 p(24)="|: ra+ |:6 a+:| :|
  982. 54410 p(25)="|: ra+ |:6 a+:| :|
  983. 54420 p(26)="ra+a+a+ a+a+r2
  984. 54430 /* G
  985. 54440 p(27)="|:4 r2.a+:|
  986. 54450 p(28)="|: r2.a+:| ra+|:6a+:|
  987. 54460 p(29)="|:8 a+:| r2.a+ |:4 a+:|
  988. 54470 p(30)="|:8 a+:| ra+|:6 a+:|
  989. 54480 p(31)="ra+|:6 a+:|
  990. 54490 p(32)="r1^1 |:8 a+:|
  991. 54500 /* J
  992. 54510 p(33)="|: ra+|:6a+:| :|
  993. 54520 p(34)="|: ra+|:6a+:| :|
  994. 54530 p(35)="|: ra+|:6a+:| :|
  995. 54540 p(36)="|: ra+|:6a+:| :|
  996. 54550 p(37)="|: ra+|:6a+:| :|
  997. 54560 p(38)="|: ra+|:6a+:| :|
  998. 54570 /* K
  999. 54580 p(39)="|: r<d+d+d+ r2.d+> :|
  1000. 54590 p(40)="r<d+d+d+ |:r2.d+:| |:4d+:|>
  1001. 54600 p(41)="|:< rd+d+d+ r2.d+> :|
  1002. 54610 p(42)="r<d+d+d+ r2.d+ |:8 d+:| >
  1003. 54620 p(43)="|:8 <d+>:| r1^1
  1004. 54630 p(44)="|:8 <d+>:|
  1005. 54640 /* L
  1006. 54650 p(45)="rf+ |:10 f+:| f+1
  1007. 54660 p(46)="ra+ |:14 a+:|
  1008. 54670 /* Coda
  1009. 54680 p(47)="rf+ |:10 f+:| r1
  1010. 54690 p(48)="ra+ |:14 a+:|
  1011. 54700 p(49)="r1^1^1^1
  1012. 54710 p(50)="r1^1^1^1
  1013. 55000 s={ 0, 1,2,3,4, 5,6,7,8,9, 10,11,
  1014. 55010        12,13, 14,15,16,17,  18,19,
  1015. 55020        20,21,22,23,24,25,26, 27,28,29,30,31,32,
  1016. 55030        1,2,3,64, 14,15,16,17,
  1017. 55040        33,34,35,36,37,38, 39,40,41,42,43,44,
  1018. 55050        45,46,  5,6,7,8,9, 10,11, 47,48, 49,50,    255 }
  1019. 55500 write(11)
  1020. 60000 m_play()
  1021. 60010 end
  1022. 60020 func write(t)
  1023. 60030 int i=0
  1024. 60040   while s(i)<>255
  1025. 60050     m_trk(t,p(s(i)))
  1026. 60060     i=i+1
  1027. 60070   endwhile
  1028. 60080 endfunc
  1029. 60090 func fre()
  1030. 60100 int t
  1031. 60110   print " Track : free / used "
  1032. 60120   for t=1 to CH(0)
  1033. 60130 /*  print using " ## : #####(##) ";t,m_free(t),(TR(t)-m_free(t))*100/TR(t);
  1034. 60140     print using " ## : #### #### ";t,m_free(t),TR(t)-m_free(t);
  1035. 60150   next
  1036. 60160   print
  1037. 60170 endfunc
  1038. 60180 func macroext()
  1039. 60190 dim int mk(255)
  1040. 60200 int i=0
  1041. 60210   for i=0 to 255
  1042. 60220     if mk(s(i))=1 then continue
  1043. 60230     if s(i)=255 then break
  1044. 60240     p(s(i))=MACRO(p(s(i)))
  1045. 60250     mk(s(i))=1
  1046. 60260   next
  1047. 60270 endfunc
  1048. 60280 func savebuf()
  1049. 60290 dim int mk(255)
  1050. 60300 int i=0
  1051. 60310   for i=0 to 255
  1052. 60320     if mk(s(i))=1 then continue
  1053. 60330     if s(i)=255 then break
  1054. 60340     o(s(i))=p(s(i))
  1055. 60350     mk(s(i))=1
  1056. 60360   next
  1057. 60370 endfunc
  1058. 60380 func loadbuf()
  1059. 60390 dim int mk(255)
  1060. 60400 int i=0
  1061. 60410   for i=0 to 255
  1062. 60420     if mk(s(i))=1 then continue
  1063. 60430     if s(i)=255 then break
  1064. 60440     p(s(i))=o(s(i))
  1065. 60450     mk(s(i))=1
  1066. 60460   next
  1067. 60470 endfunc
  1068. 60480 func ornext(kf,dif)
  1069. 60490 dim int mk(255)
  1070. 60500 int i=0
  1071. 60510   for i=0 to 255
  1072. 60520     if mk(s(i))=1 then continue
  1073. 60530     if s(i)=255 then break
  1074. 60540     p(s(i))=ORN(p(s(i)),kf,dif)
  1075. 60550     mk(s(i))=1
  1076. 60560   next
  1077. 60570 endfunc
  1078. 60580 func tcnt()
  1079. 60590 str F : int st,ed,tl
  1080. 60600   F=time$ : while F=time$ : endwhile
  1081. 60610   st=tvl(): m_play()
  1082. 60620   while 1
  1083. 60630   locate 0,csrlin
  1084. 60640     if m_stat()=0 then break
  1085. 60650   tl=tvl()-st
  1086. 60660   print using "####  ###:##";tl,tl/60,tl mod 60;
  1087. 60670   endwhile
  1088. 60680   ed=tvl() : tl=ed-st
  1089. 60690   print using "####  ###:##";tl,tl/60,tl mod 60
  1090. 60700 endfunc
  1091. 60710 func tvl()
  1092. 60720   int v : str tmp
  1093. 60730   tmp=time$
  1094. 60740   v=val(mid$(tmp,1,2))*3600
  1095. 60750   v=v+val(mid$(tmp,4,2))*60
  1096. 60760   v=v+val(mid$(tmp,7,2))
  1097. 60770   return(v)
  1098. 60780 endfunc
  1099. 60790 func str ORN(mml;str,kf,dif) /* 装飾音符展開  #が使用不可能
  1100. 60800 str S[256],E[256],BUF[256],x,y,z,k
  1101. 60810 int p,b
  1102. 60820   BUF=mml
  1103. 60830   while 1
  1104. 60840     p=strchr(BUF,35)
  1105. 60850     if p=-1 then break
  1106. 60860     p=p+1
  1107. 60870     S=left$(BUF,p-1)
  1108. 60880     x=mid$(BUF,p+2,1)
  1109. 60890     if x="+" or x="-" then {
  1110. 60900       E=mid$(BUF,p+3,256) : k=mid$(BUF,p+1,2)
  1111. 60910     } else {
  1112. 60920       E=mid$(BUF,p+2,256) : k=mid$(BUF,p+1,1) }
  1113. 60930     y="@K"+itoa(kf-dif) : z="@K"+itoa(kf)
  1114. 60940     x="{"+y+k+"&"+z+k+"&"+k+"}"
  1115. 60950     BUF=S+x+E
  1116. 60960   endwhile
  1117. 60970   while 1
  1118. 60980     p=strchr(BUF,59)
  1119. 60990     if p=-1 then break
  1120. 61000     p=p+1
  1121. 61010     S=left$(BUF,p-1)
  1122. 61020     if x="+" or x="-" then {
  1123. 61030       E=mid$(BUF,p+3,256) : k=mid$(BUF,p+1,2)
  1124. 61040     } else {
  1125. 61050       E=mid$(BUF,p+2,256) : k=mid$(BUF,p+1,1) }
  1126. 61060     y="@K"+itoa(kf-dif)+","+itoa(kf) : z="@K"+itoa(kf)
  1127. 61070     x="{"+y+k+"&"+z+k+"&"+k+"}"
  1128. 61080     BUF=S+x+E
  1129. 61090   endwhile
  1130. 61100   return(BUF)
  1131. 61110 endfunc
  1132. 61120 func str MACRO(mml;str) /* マクロ展開  ?が使用不可能
  1133. 61130 str BUF[256],L[256],R[256],vl
  1134. 61140 int p,b,n
  1135. 61150   BUF=mml
  1136. 61160   while 1
  1137. 61170     p=strchr(BUF,63)
  1138. 61180     if p=-1 then return(BUF)
  1139. 61190     L=left$(BUF,p)
  1140. 61200     n=atoi(mid$(BUF,p+2,4))
  1141. 61210     vl=itoa(n)
  1142. 61220     R=mid$(BUF,p+1,256)
  1143. 61230     R=mid$(R, instr(1,R,vl)+len(vl), 256)
  1144. 61240     BUF=L+MC(n)+R
  1145. 61250   endwhile
  1146. 61260 endfunc
  1147. 61270 func write_assign(dr,ky;str)
  1148. 61280 int t : str tmp=""
  1149. 61290   for t=1 to CH(0)
  1150. 61300     tmp="@n"+itoa(CH(t))
  1151. 61310     if CH(t)<dr  then tmp=tmp+ky
  1152. 61320     m_trk(t,tmp)
  1153. 61330   next
  1154. 61340 endfunc
  1155. 61350 func note( s;str )
  1156. 61360   exec_zms( "" )
  1157. 61370   exec_zms( "/ "+s )
  1158. 61380 endfunc
  1159.